home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / CreateInstallScript.rexx next >
OS/2 REXX Batch file  |  1999-02-28  |  2KB  |  83 lines
  1. /* */
  2.  
  3. address command "copy english.strings /Install"
  4.  
  5. if ~show("l","rexxsupport.library") then do
  6.   if addlib("rexxsupport.library",0,-30,0) then
  7.     say("add lib")
  8.   else
  9.     exit 10
  10.   end
  11.  
  12.  
  13. address command 'list >t:qwe strings/~(#?.info) lformat="%s"'
  14.  
  15. open(1,"Script","R")
  16. open(2,"/Install/InstallModePro","W")
  17.  
  18. do until eof(1)
  19.   line=readln(1)
  20.   if line="INSERT_STRINGS" then 
  21.   do
  22.  
  23.     if open(4,"t:qwe") then
  24.     do
  25.       langlist=""
  26.       l=1
  27.       filename="english"
  28.       do until eof(4)
  29.         if filename~="" then 
  30.         do
  31.           lang_id='lang_'l
  32.           writeln(2, '(set 'lang_id' "'filename'")')
  33.           langlist=langlist || " " || lang_id
  34.           l=l+1
  35.         end
  36.         filename=readln(4)
  37.       end
  38.       close(4)
  39.     end
  40.     
  41.     writeln(2, '(set lang (askchoice (prompt "Select a language.\nElija un idioma.\nÎíåaêòèðña, òéaåçñä þæúé.\nKérlek válassz egy nyelvet.")')
  42.     writeln(2, '                         (help   "Select a language.\nElija un idioma.\nÎíåaêòèðña, òéaåçñä þæúé.\nKérlek válassz egy nyelvet!")')
  43.     writeln(2, '                         (choices 'langlist')')
  44.     writeln(2, '                         (default 0)')
  45.     writeln(2, ')         )')
  46.     writeln(2, '(set @language (select lang 'langlist'))')
  47.   
  48.   
  49.     /* copy english */
  50.     if open(3,"english.strings") then
  51.     do
  52.       do until eof(3)
  53.         line=readln(3)
  54.         writeln(2,line)
  55.       end
  56.       close(3)
  57.     end
  58.     
  59.     /* copy other languages */
  60.     if open(4,"t:qwe") then
  61.     do
  62.       do until eof(4)
  63.         filename=readln(4)
  64.         
  65.         if open(3,"strings/" || filename) then do
  66.           writeln(2,'(if (= @language "' || filename || '")')
  67.           writeln(2,'  (')
  68.           do until eof(3)
  69.             line=readln(3)
  70.             writeln(2,'    ' || line)
  71.           end
  72.           writeln(2,') )')
  73.           close(3)
  74.         end
  75.       end
  76.       close(4)  
  77.     end
  78.   end
  79.   else
  80.     writeln(2,line)    
  81. end
  82.  
  83.